From d43fe04903beb2c9705644de12f63cb9c31bcccf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 31 Jul 1994 17:11:50 +0000 Subject: [PATCH] (mouse-extend): Pass WINDOW arg to mouse-scroll-subr. --- lisp/mouse-sel.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 092e1cae6b8..881329d7167 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -318,16 +318,16 @@ This should be bound to a down-mouse event." (let ((end-row (cdr (cdr (mouse-position))))) (cond ((and end-row (not (bobp)) (< end-row top)) - (mouse-scroll-subr (- end-row top) + (mouse-scroll-subr orig-window (- end-row top) mouse-drag-overlay max)) ((and end-row (not (eobp)) (>= end-row bottom)) - (mouse-scroll-subr (1+ (- end-row bottom)) + (mouse-scroll-subr orig-window (1+ (- end-row bottom)) mouse-drag-overlay min)) ))) ;; On the mode line ((eq (posn-point end) 'mode-line) - (mouse-scroll-subr 1 mouse-drag-overlay min)) + (mouse-scroll-subr orig-window 1 mouse-drag-overlay min)) ;; In original window (t (goto-char (posn-point end))) -- 2.30.2